Imports System.Data.OleDb
Imports DTO
Imports DAO

Public Class KhachHangBUS

    Public Function Lay_Bang(ByVal chuoi_lenh As String) As DataTable
        Dim dt As DataTable
        Dim khDao As New KhachHangDAO()
        dt = khDao.Lay_Bang(chuoi_lenh)
        Return dt
    End Function

    Public Function DocCauTruc(ByVal chuoi_lenh As String) As DataTable
        Dim dt As DataTable
        Dim khDao As New KhachHangDAO()
        dt = khDao.DocCauTruc(chuoi_lenh)
        Return dt
    End Function

    Public Function LayBangKhachHang() As DataTable
        Dim dt As DataTable
        Dim khDao As New KhachHangDAO()
        dt = khDao.LayBangKhachHang()
        Return dt
    End Function

    Public Function TimKiemTheoNhieuTieuChi(ByVal khCRT As KhachHangCRT) As DataTable
        Dim dt As DataTable
        Dim khDao As New KhachHangDAO()
        dt = khDao.TinKiemTheoNhieuTieuChi(khCRT)
        Return dt
    End Function

    Public Sub ThemKhachHang(ByVal dr As DataRow)
        Dim khDao As New KhachHangDAO()
        khDao.ThemKhachHang(dr)
    End Sub

    Public Sub CapNhatKhachHang(ByVal dr As DataRow)
        Dim khDao As New KhachHangDAO()
        khDao.CapNhatKhachHang(dr)
    End Sub

    Public Sub XoaKhachHang(ByVal dr As DataRow)
        Dim khDao As New KhachHangDAO()
        khDao.XoaKhachHang(dr)
    End Sub

End Class
